Workbench Design/WB Collection.iso/workbench werkzeuge/uhren & terminkalender/organizer/gcbplaner/install_gcbplaner

Text File | 1996-04-07 | 21KB | 781 lines

;-------------------------------------------------------------------
; $VER: Install-GCB-Produkte V2.00 Dienstag 24.01.95
;       Gabriele Christine Bauer
;       St.-Augustinus-Str 74
;       81825 München
;       Deutschland
;-------------------------------------------------------------------
; Globalvariablen
;-------------------------------------------------------------------
(set produkt (cat "GCBPlaner"))
(set version (cat "V3.13"))
(delopts AskUser)
(set @language "deutsch")
(set false 0)
(set true 1)
;-------------------------------------------------------------------
; Begrüßung
;-------------------------------------------------------------------
(set gruss (cat "Willkommen bei der Installation von "produkt" "version))
(welcome gruss)
;-------------------------------------------------------------------
; Ermittlung Kickstart und Workbench
;-------------------------------------------------------------------
(set kickVersion (shiftright (getversion) 16))
(set wbVersion (shiftright (getversion "LIBS:version.library") 16))
;-------------------------------------------------------------------
; Abfrage auf richtige Version
;-------------------------------------------------------------------
(set abbruch
  (cat "Leider sind Sie nicht im Besitz einer Workbench-Version 2.04 oder höher"
          "\n\n"
          "Somit können Sie "produkt" nicht installieren"
          "\n\n"
          "Abbruch der Installation"
  )
)
(if (< WBVersion 37)
  (
    (message abbruch)
    (exit (quiet))
  )
)
(complete 0)
;-------------------------------------------------------------------
; Copyright
;-------------------------------------------------------------------
(set copyright
  (cat "\n\n"
       produkt"-Installationsskript."
       "\n"
         "Diese Installationsroutine installiert "produkt" auf Ihrem Amiga."
         "\n\n"
         "Lesen Sie bitte die Dokumentation für "
       "weitere Informationen über die Weitergeabe. "
       "\n\n"
       produkt" "version" © 1995 Gabriele Christine Bauer "
       "\n"
       "Alle Rechte vorbehalten."
  )
)
(message copyright)
(complete 10)
;-------------------------------------------------------------------
; Abfrage auf vorhandene Installation
;-------------------------------------------------------------------
(set gcbvorhanden false)
(set produktvorhanden false)
(if (= (exists "S:GCBProdukt.exists") true)
  (
    (set gcbvorhanden true)
    (if (= (exists (cat "GCBProdukte:"produkt)) true)
      (
        (set produktvorhanden true)
      )
    )
    (if ( and (= produktvorhanden false) (= (exists (cat "SYS:WBStartup/"produkt)) true))
      (
        (set produktvorhanden true)
      )
    )
  )
)
(complete 20)
;-------------------------------------------------------------------
; Abfrage auf Installationsart
;-------------------------------------------------------------------
(set frage
  (cat "Bitte wählen Sie eine der unten stehenden Möglichkeiten aus:"
  )
)
(if (= produktvorhanden false)
  (
    (set inst
      (cat "Installation von "produkt" "version
      )
    )
  )
)
(if (= produktvorhanden true)
  (
    (set inst
      (cat "Update auf "produkt" "version
      )
    )
  )
)
(set remo
  (cat produkt" von Festplatte entfernen"
  )
)
(set vers
  (cat "Systeminformationen abrufen"
  )
)
(set wahl
  (askchoice
    (prompt frage)
    (choices inst remo vers)
    (help @askchoise-help)
  )
)
(complete 30)
;-------------------------------------------------------------------
; Abfrage auf Remove
;-------------------------------------------------------------------
(set abbruch
  (cat "\n\n"
       "Sie können "produkt" nicht von der Festplatte entfernen, "
       "da Sie es noch nicht installiert haben."
  )
)
(if (and (= produktvorhanden false) (= wahl 1))
  (
    (message abbruch)
    (exit (quiet))
  )
)
(complete 40)
;-------------------------------------------------------------------
; Sichern der pers. Daten
;-------------------------------------------------------------------
(if (and (= wahl 0) (= produktvorhanden true))
  (
    (run ("makedir >nil: RAM:GCBDAT"))
    (set text
      (cat "\n\nDa Sie schon eine Version von "produkt" installiert haben, "
           "werden zuerst Ihre persönlichen Daten zwischengespeichert."
      )
    )
    (message text)
    (set text
      (cat "Sichere persönliche Daten nach RAM:GCBDAT"
      )
    )
    (if (= produkt (cat "GCBPlaner"))
      (
        (if (= (exists "GCBProdukte:GCBPlaner.key") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBPlaner.key")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBPlaner.Dat") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBPlaner.Dat")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBPlaner.Konfig") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBPlaner.Konfig")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "SYS:WBStartup/GCBPlaner.info") true)
          (
            (copyfiles
              (prompt text)
              (source "SYS:WBStartup/GCBPlaner.info")
              (dest "RAM:GCBDAT/")
            )
          )
        )
      )
    )
    (if (= produkt (cat "GCBVideo"))
      (
        (if (= (exists "GCBProdukte:GCBVideo.Key") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Key")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.Konfig") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Konfig")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.Archiv") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Archiv")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.Aufnahmen") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Aufnahmen")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.Frei") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Frei")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.Kategorien") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Kategorien")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.Programme") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.Programme")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBVideo.info") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBVideo.info")
              (dest "RAM:GCBDAT/")
            )
          )
        )
      )
    )
    (if (= produkt (cat "GCBAdresse"))
      (
        (if (= (exists "GCBProdukte:GCBAdresse.Key") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.Key")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.Orte") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.Orte")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.Bank") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.Bank")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.Konfig") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.Konfig")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.Adressen") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.Adressen")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.GrpSchalt") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.GrpSchalt")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.Gruppen") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.Gruppen")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBAdresse.info") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBAdresse.info")
              (dest "RAM:GCBDAT/")
            )
          )
        )
      )
    )
    (if (= produkt (cat "GCBNotiz"))
      (
        (if (= (exists "GCBProdukte:GCBNotiz.Key") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBNotiz.Key")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBNotiz.Konfig") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBNotiz.Konfig")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBNotiz.Notizen") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBNotiz.Notizen")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBNotiz.info") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBNotiz.info")
              (dest "RAM:GCBDAT/")
            )
          )
        )
      )
    )
    (if (= produkt (cat "GCBDruck"))
      (
        (if (= (exists "GCBProdukte:GCBDruck.Key") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBDruck.Key")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBDruck.Konfig") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBDruck.Konfig")
              (dest "RAM:GCBDAT/")
            )
          )
        )
        (if (= (exists "GCBProdukte:GCBDruck.info") true)
          (
            (copyfiles
              (prompt text)
              (source "GCBProdukte:GCBDruck.info")
              (dest "RAM:GCBDAT/")
            )
          )
        )
      )
    )
  )
)
(complete 50)
;-------------------------------------------------------------------
; Entferne bisherige Installation bei (wahl < 2)
;-------------------------------------------------------------------
(if (and (< wahl 2) (= produktvorhanden true))
  (
    (set text
      (cat "\n\nAuf Ihrer Festplatte wird nun "produkt" entfernt"
      )
    )
    (message text)
    (run
      (cat "delete >nil: SYS:WBStartUp/"produkt"#? all"
      )
    )
    (run
      (cat "delete >nil: GCBProdukte:"produkt"#? all"
      )
    )
    (set produktvorhanden false)
  )
)
(complete 70)
;-------------------------------------------------------------------
; Entferne Assign & s:gcbprodukt.exists
;-------------------------------------------------------------------
(set sonstgcbprodukt false)
(if (and (< wahl 2) (= gcbvorhanden true))
  (
    (if (= (exists "SYS:WBStartup/GCBPlaner") true)
      (
        (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo") true)
      (
        (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse") true)
      (
        (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBNotiz") true)
      (
        (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBDruck") true)
      (
        (set sonstgcbprodukt true)
      )
    )
    (if (= sonstgcbprodukt false)
      (
        (run ("execute gcbwo"))
        (set srcdir (getenv "GCBTemp"))
        (delete "ENV:GCBTemp")
        (set text
          (cat "Da Sie keine weiteren GCB-Produkte installiert haben, "
               "wird die Schublade "srcdir" auf Ihrer Festplatte gelöscht und "
               "der Assign in der Datei USER-Startup entfernt."
          )
        )
        (startup "GCB-Produkte"
          (prompt text)
          (help @startup-help)
        )
        (run "assign GCBProdukte: remove")
        (run
          (cat "delete >nil: \""srcdir"\" all"
          )
        )
        (delete "S:GCBProdukt.exists")
        (set gcbvorhanden false)
      )
    )
  )
)
(if (= wahl 1)
  (
    (exit (quiet))
  )
)
(complete 80)
;-------------------------------------------------------------------
; Installieren neue Version (wahl = 0)
;-------------------------------------------------------------------
(if (= wahl 0)
  (
    (if (= (exists (cat "WBStartUp/"produkt)) true)
      (
        (set text
          (cat "\n\nKopiere das Startprogramm von "produkt" in die Schublade "
               "SYS:WBStartUp. Beim nächsten Rechnerstart wird das Startprogramm "
               " aktiv."
          )
        )
        (message text)
        (copyfiles
          (prompt "Installiere Startprogramm")
          (source "WBStartUp/")
          (pattern "#?")
          (dest "SYS:WBStartUp")
        )
      )
    )
    (if (= gcbvorhanden false)
      (
        (set GCBWahl
          (askdir
            (prompt
              (cat "Wohin soll "produkt" installiert werden ?\nEin Verzeichnis"
                   " GCBProdukte wird erzeugt."
              )
            )
            (help @askdir-help)
            (default "SYS:")
          )
        )
        (set GCBDir (tackon GCBWahl "GCBProdukte"))
        (makedir GCBDir)
        (run (cat "assign GCBProdukte: \""GCBDir"\""))
        (set GCBORGXX GCBDir)
        (set GCBDir "GCBProdukte:")
      )
    )
    (if (= gcbvorhanden true)
      (
        (set GCBDir "GCBProdukte:")
      )
    )
    (set text
      (cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
           " in das Verzeichnis "GCBDir
           "\n\n"
           "\nDies ist eine nicht registrierte Public-Domain-Version. Mit dieser "
           "Version sind nur 5 Einträge möglich."
      )
    )
    (if (= (exists (cat "GCBProdukte/"produkt".key")) true)
      (
        (set text
          (cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
               " in das Verzeichnis "GCBDir
               "\n\n"
               "\nDies ist eine registrierte Shareware-Verion. Nochmals "
               "vielen Dank für die Unterstützung des Shareware-Konzepts"
          )
        )
        (run
          (cat "delete >nil: RAM:GCBDAT/"produkt".key")
        )
      )
    )
    (if (= (exists (cat "RAM:GCBDAT/"produkt".key")) true)
      (
        (set text
          (cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
               " in das Verzeichnis "GCBDir
               "\n\n"
               "\nDies ist eine registrierte Shareware-Verion. Nochmals "
               "vielen Dank für die Unterstützung des Shareware-Konzepts"
          )
        )
      )
    )
    (message text)
    (copyfiles
      (prompt (cat "Installiere "produkt))
      (source "GCBProdukte/")
      (pattern "#?")
      (dest GCBDir)
    )
    (set frage
      (cat "Bitte wählen Sie einen geeigneten Monitor-Treiber aus:"
      )
    )
    (set tpal
      (cat "PAL"
      )
    )
    (set tmulti
      (cat "MultiScan-Monitor"
      )
    )
    (set monitor
      (askchoice
        (prompt frage)
        (choices tpal tmulti)
        (help @askchoise-help)
      )
    )
    (if (= produkt "GCBPlaner")
      (set gespfad
        (cat GCBDIR Produkt".bearb"
        )
      )
    )
    (if (NOT (= produkt "GCBPlaner"))
      (set gespfad
        (cat GCBDIR Produkt
        )
      )
    )
    (run
      (cat "delete >nil: "gespfad)
    )
    (if (= monitor 0)
      (
        (run
          (cat "rename >nil: "gespfad".Pal "gespfad)
        )
      )
    )
    (if (= monitor 1)
      (
        (run
          (cat "rename >nil: "gespfad".MultiScan "gespfad)
        )
      )
    )
    (if (= (exists "libs/CanDo.library") true)
      (
        (copylib
            (prompt "Installiere CanDo.library")
            (help @copylib-help)
            (confirm)
            (source "libs/CanDo.library")
            (dest "Libs:")
        )
      )
    )
    (if (= (exists "libs/CanDoGfx.library") true)
      (
        (copylib
            (prompt "Installiere CanDoGfx.library")
            (help @copylib-help)
            (confirm)
            (source "libs/CanDoGfx.library")
            (dest "Libs:")
        )
      )
    )
    (if (= (exists "libs/INOVAMusic.library") true)
      (
        (copylib
            (prompt "Installiere INOVAMusic.library")
            (help @copylib-help)
            (confirm)
            (source "libs/INOVAMusic.library")
            (dest "Libs:")
        )
      )
    )
    (if (= (exists "Fonts/GCBPlaner.font") true)
      (
        (copyfiles
          (prompt "Installiere Fonts")
          (source "Fonts/")
          (pattern "#?")
          (dest "Fonts:")
        )
      )
    )
    (if (= (exists "s/GCBProdukt.exists") true)
      (
        (copyfiles
          (prompt "Installiere GCB-Marker")
          (source "S/")
          (pattern "#?")
          (dest "S:")
        )
      )
    )
    (if (= gcbvorhanden false)
      (
        (copyfiles
          (prompt "Installiere Schubladen-Icon")
          (source "GCBProdukte.info")
          (dest GCBWahl)
        )
      )
    )
    (if (= gcbvorhanden false)
      (
        (set user_script
          (cat "  Assign GCBProdukte: \"" GCBORGXX "\""
          )
        )
        (working omp "Updating S:User-Startup.")
        (startup "GCB-Produkte"
          (prompt
              "Diese Instruktionen müssen an die Datei \"S:User-Startup\" hinzugefügt"
                "werden."
                "Somit ist Ihr System für den Einsatz von "produkt" konfiguriert.\n\n"
                user_script
            )
            (help @startup-help)
            (command user_script)
        )
      )
    )
  )
)
(complete 90)
;-------------------------------------------------------------------
; Kopieren Zwischendateien aus RAM: (pattern produkt & wahl = 0)
;-------------------------------------------------------------------
(if (and (= wahl 0) (= (exists "RAM:GCBDAT/GCBPlaner.info") 1))
  (
    (copyfiles
      (prompt "Kopiere pers. Datenfiles in neue Installation")
      (source "RAM:GCBDAT/GCBPlaner.info")
      (dest "SYS:WBStartup/")
    )
    (run "delete >nil: ram:gcbdat/GCBPlaner.info")
  )
)
(if (and (= wahl 0) (= (exists "RAM:GCBDAT/") 2))
  (
    (copyfiles
      (prompt "Kopiere pers. Datenfiles in neue Installation")
      (source "RAM:GCBDAT/")
      (pattern (cat produkt"#?"))
      (dest GCBDir)
    )
    (run "delete >nil: ram:gcbdat all")
  )
)
(complete 100)
;-------------------------------------------------------------------
; Auskunft über System (wahl = 2)
;-------------------------------------------------------------------
(if (= wahl 2)
   (
     (run "Version >ENV:GCBInfo")
     (set systeminfo
       (cat "Information über Ihr System:\n\n"
            (getenv "GCBInfo")
            "\n"produkt" "version
       )
     )
     (delete "ENV:GCBInfo")
     (message systeminfo)
     (exit (quiet))
   )
)
(complete 100)
;-------------------------------------------------------------------
; Endlich am Ende
;-------------------------------------------------------------------
(set @default-dest GCBDir)
(set text
  (cat "Die Installation von "produkt" "version" ist nun abgeschlossen."
       "\n\nBitte lesen Sie die Dokumentation, zu diesem Produkt, die Sie "
       "in "GCBDir" finden können, bzw. mir der Help-Taste aus dem Programm heraus"
       " aufrufen können.\n\nViel Spaß mit Ihrer neuen Software"
  )
)
(exit text)